unit HelpGui;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls,

  GlobalRecordsAndEnums, ExtActns;

type
  TfrmHelp = class(TForm)
    ButtonPanel: TPanel;
    btnOk: TButton;
    PageControl: TPageControl;
    tsAbout: TTabSheet;
    lblInventionCalculator: TLabel;
    lblVersionValue: TLabel;
    lblAuthor: TLabel;
    lblContactEveMail: TLabel;
    tsFuture: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    lblVersion: TLabel;
    lblAuthorValue: TLabel;
    lblContact: TLabel;
    lblContactForum: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label6: TLabel;
    procedure lblContactForumClick(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); reintroduce;
  end;

var
  frmHelp: TfrmHelp;

implementation

{$R *.dfm}

constructor TfrmHelp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  lblVersionValue.Caption := FloatToStr(global_version) + 'D (Dominion Fix)';
end;

procedure TfrmHelp.lblContactForumClick(Sender: TObject);
var
  run: TBrowseURL;
begin
  run := TBrowseURL.Create(self);
  run.URL := 'http://myeve.eve-online.com/ingameboard.asp?a=topic&threadID=743617';
  run.Execute;
  run.Free;
end;

end.
